# 
# 
# Author: Guochun Shen
# Data:   2011-12-18
# Project:spatial statistic
# Email:  shenguochun@gmail.com
###############################################################################

test.get_params=function(){
	data(redwood)
	fitted=kppm(redwood, ~1, "LGCP")
	params=get_params(fitted)
	exppms= c("log(lambda)"=4.127134 ,"sigma2"=1.04838966,
			"alpha"=0.09981051, "mu"=3.60293956, "N"=62) 
	checkEquals(round(params,3),round(exppms,3))
}

